; Fix last addition to dom-tests.el

* test/lisp/dom-tests.el (dom-tests-remove-attribute): Make test
idempotent by avoiding destructive modification of constant literal.

diff --git a/test/lisp/dom-tests.el b/test/lisp/dom-tests.el
index eb15500d84cc7ddb49365005fadd82733c2fc780..f743df78fd505047b5ad288f510e593a0fcc68a4 100644 (file)
--- a/test/lisp/dom-tests.el
+++ b/test/lisp/dom-tests.el
@@ -85,7 +85,7 @@
     (should (equal (dom-attr dom attr) value))))
 
 (ert-deftest dom-tests-remove-attribute ()
-  (let ((dom `(body ((foo . "bar") (zot . "foobar")))))
+  (let ((dom (copy-tree '(body ((foo . "bar") (zot . "foobar"))))))
     (should (equal (dom-attr dom 'foo) "bar"))
     (dom-remove-attribute dom 'foo)
     (should (equal (dom-attr dom 'foo) nil))